%Wypisuje korelacje miedzy wydatkami sektora biznesowego na badania a
%capital services

wyd = WYD(:,2);
cs = CS(4:end, 2);

disp('Korelacja pomiedzy wydatkami sektora biznesowego na badania a capital services');
for i = 0:6
    [kor p] = KorelacjaPrzes(wyd, cs, i);
    disp(['Opoznienie ' num2str(i) ': ' num2str(kor) ', t-Student alfa = ' num2str(p)]);
end
disp(sprintf('\n\n'));

clear wyd cs i kor p;